home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #5 / 1999 CD 5 (black).iso / Delphi3 / DelphiFi / code.~pa < prev    next >
Encoding:
Text File  |  1999-02-14  |  1.2 KB  |  61 lines
  1. unit code;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     LblViesti: TLabel;
  12.     EdtArvaa: TEdit;
  13.     BtnArvaa: TButton;
  14.     BtnAloita: TButton;
  15.     procedure BtnAloitaClick(Sender: TObject);
  16.     procedure BtnArvaaClick(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.     Satunnainen: Integer;
  20.     Yritys: Integer;
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   Form1: TForm1;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TForm1.BtnAloitaClick(Sender: TObject);
  33. begin
  34.      randomize;
  35.      Satunnainen := Random(20);
  36.      Yritys := 0;
  37.  
  38.      LblViesti.Caption := 'Arvaa luku 1-20 vΣliltΣ';
  39.  
  40. end;
  41.  
  42. procedure TForm1.BtnArvaaClick(Sender: TObject);
  43. var
  44.    Arvaa :Integer;
  45.  
  46. begin
  47.    Arvaa := StrToInt(EdtArvaa.Text);
  48.    Yritys := Yritys + 1;
  49.  
  50.    if Arvaa = Satunnainen then
  51.         LblViesti.Caption := IntToStr(Yritys) + '. arvaus osui oikeaan!';
  52.  
  53.    if Arvaa < Satunnainen then
  54.       LblViesti.Caption := 'Luku ' + IntToStr(Arvaa) + ' on pienempi kuin "X"';
  55.  
  56.    if Arvaa > Satunnainen then
  57.       LblViesti.Caption := 'Luku ' + IntToStr(Arvaa) + ' on suurempi kuin "X"';
  58. end;
  59.  
  60. end.
  61.